home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / image_reg.G < prev    next >
Encoding:
Text File  |  1992-09-23  |  14.3 KB  |  521 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   pop_image_reg
  6.     :owner                  win
  7.     :width                  444
  8.     :height                 199
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Segal: Image Registry"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  pop_image_reg
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  444
  30.     :height                 199
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :message
  42.     :name                   msg_automatic
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      12
  46.     :y                      15
  47.     :width                  72
  48.     :height                 13
  49.     :foreground-color       ""
  50.     :label                  "Automatic:"
  51.     :label-type             :string
  52.     :label-bold             t
  53.     :initial-state          :active
  54.     :event-handler          nil
  55.     :user-data              ()
  56.     :actions                ()
  57. )
  58. (
  59.     :type                   :message
  60.     :name                   msg_manual
  61.     :owner                  controls1
  62.     :help                   ""
  63.     :x                      370
  64.     :y                      15
  65.     :width                  54
  66.     :height                 13
  67.     :foreground-color       ""
  68.     :label                  "Manual:"
  69.     :label-type             :string
  70.     :label-bold             t
  71.     :initial-state          :active
  72.     :event-handler          nil
  73.     :user-data              ()
  74.     :actions                ()
  75. )
  76. (
  77.     :type                   :button
  78.     :name                   but_line_scale
  79.     :owner                  controls1
  80.     :help                   ""
  81.     :x                      10
  82.     :y                      42
  83.     :width                  78
  84.     :height                 19
  85.     :constant-width         nil
  86.     :button-type            :normal
  87.     :foreground-color       ""
  88.     :label                  "Line Scale"
  89.     :label-type             :string
  90.     :initial-state          :active
  91.     :menu                   nil
  92.     :notify-handler         nil
  93.     :event-handler          nil
  94.     :user-data              ()
  95.     :actions                ()
  96. )
  97. (
  98.     :type                   :button
  99.     :name                   but_scale
  100.     :owner                  controls1
  101.     :help                   ""
  102.     :x                      374
  103.     :y                      42
  104.     :width                  49
  105.     :height                 19
  106.     :constant-width         nil
  107.     :button-type            :normal
  108.     :foreground-color       ""
  109.     :label                  "Scale"
  110.     :label-type             :string
  111.     :initial-state          :active
  112.     :menu                   nil
  113.     :notify-handler         nil
  114.     :event-handler          nil
  115.     :user-data              ()
  116.     :actions                ()
  117. )
  118. (
  119.     :type                   :text-field
  120.     :name                   text_scale_factor
  121.     :owner                  controls1
  122.     :help                   ""
  123.     :x                      146
  124.     :y                      45
  125.     :width                  156
  126.     :height                 15
  127.     :value-x                238
  128.     :value-y                45
  129.     :value-length           8
  130.     :stored-length          20
  131.     :rows                   3
  132.     :foreground-color       ""
  133.     :text-type              :alphanumeric
  134.     :label                  "Scale Factor:"
  135.     :label-type             :string
  136.     :layout-type            :horizontal
  137.     :value-underlined       t
  138.     :initial-value          "1.0"
  139.     :initial-state          :active
  140.     :read-only              nil
  141.     :notify-handler         nil
  142.     :event-handler          nil
  143.     :user-data              ()
  144.     :actions                ()
  145. )
  146. (
  147.     :type                   :button
  148.     :name                   but_translate_up
  149.     :owner                  controls1
  150.     :help                   ""
  151.     :x                      386
  152.     :y                      77
  153.     :width                  26
  154.     :height                 19
  155.     :constant-width         nil
  156.     :button-type            :normal
  157.     :foreground-color       ""
  158.     :label                  "^"
  159.     :label-type             :string
  160.     :initial-state          :active
  161.     :menu                   nil
  162.     :notify-handler         nil
  163.     :event-handler          nil
  164.     :user-data              ()
  165.     :actions                ()
  166. )
  167. (
  168.     :type                   :button
  169.     :name                   but_point_translate
  170.     :owner                  controls1
  171.     :help                   ""
  172.     :x                      10
  173.     :y                      93
  174.     :width                  111
  175.     :height                 19
  176.     :constant-width         nil
  177.     :button-type            :normal
  178.     :foreground-color       ""
  179.     :label                  "Point Translate"
  180.     :label-type             :string
  181.     :initial-state          :active
  182.     :menu                   nil
  183.     :notify-handler         nil
  184.     :event-handler          nil
  185.     :user-data              ()
  186.     :actions                ()
  187. )
  188. (
  189.     :type                   :button
  190.     :name                   but_translate_left
  191.     :owner                  controls1
  192.     :help                   ""
  193.     :x                      362
  194.     :y                      93
  195.     :width                  26
  196.     :height                 19
  197.     :constant-width         nil
  198.     :button-type            :normal
  199.     :foreground-color       ""
  200.     :label                  "<"
  201.     :label-type             :string
  202.     :initial-state          :active
  203.     :menu                   nil
  204.     :notify-handler         nil
  205.     :event-handler          nil
  206.     :user-data              ()
  207.     :actions                ()
  208. )
  209. (
  210.     :type                   :button
  211.     :name                   but_translate_right
  212.     :owner                  controls1
  213.     :help                   ""
  214.     :x                      410
  215.     :y                      93
  216.     :width                  26
  217.     :height                 19
  218.     :constant-width         nil
  219.     :button-type            :normal
  220.     :foreground-color       ""
  221.     :label                  ">"
  222.     :label-type             :string
  223.     :initial-state          :active
  224.     :menu                   nil
  225.     :notify-handler         nil
  226.     :event-handler          nil
  227.     :user-data              ()
  228.     :actions                ()
  229. )
  230. (
  231.     :type                   :slider
  232.     :name                   set_translate_pixels
  233.     :owner                  controls1
  234.     :help                   ""
  235.     :x                      146
  236.     :y                      97
  237.     :width                  181
  238.     :height                 20
  239.     :value-x                193
  240.     :value-y                97
  241.     :slider-width           20
  242.     :ticks                  0
  243.     :foreground-color       ""
  244.     :label                  "Pixels:"
  245.     :label-type             :string
  246.     :layout-type            :horizontal
  247.     :orientation            :horizontal
  248.     :show-endboxes          t
  249.     :show-range             t
  250.     :show-value             t
  251.     :min-value              1
  252.     :max-value              20
  253.     :min-value-string       ""
  254.     :max-value-string       ""
  255.     :min-tick-string        ""
  256.     :max-tick-string        ""
  257.     :initial-value          0
  258.     :initial-state          :active
  259.     :notify-handler         nil
  260.     :event-handler          nil
  261.     :user-data              ()
  262.     :actions                ()
  263. )
  264. (
  265.     :type                   :button
  266.     :name                   but_translate_down
  267.     :owner                  controls1
  268.     :help                   ""
  269.     :x                      386
  270.     :y                      109
  271.     :width                  25
  272.     :height                 19
  273.     :constant-width         nil
  274.     :button-type            :normal
  275.     :foreground-color       ""
  276.     :label                  "v"
  277.     :label-type             :string
  278.     :initial-state          :active
  279.     :menu                   nil
  280.     :notify-handler         nil
  281.     :event-handler          nil
  282.     :user-data              ()
  283.     :actions                ()
  284. )
  285. (
  286.     :type                   :button
  287.     :name                   but_line_rotate
  288.     :owner                  controls1
  289.     :help                   ""
  290.     :x                      10
  291.     :y                      146
  292.     :width                  86
  293.     :height                 19
  294.     :constant-width         nil
  295.     :button-type            :normal
  296.     :foreground-color       ""
  297.     :label                  "Line Rotate"
  298.     :label-type             :string
  299.     :initial-state          :active
  300.     :menu                   nil
  301.     :notify-handler         nil
  302.     :event-handler          nil
  303.     :user-data              ()
  304.     :actions                ()
  305. )
  306. (
  307.     :type                   :button
  308.     :name                   but_rotate
  309.     :owner                  controls1
  310.     :help                   ""
  311.     :x                      371
  312.     :y                      146
  313.     :width                  57
  314.     :height                 19
  315.     :constant-width         nil
  316.     :button-type            :normal
  317.     :foreground-color       ""
  318.     :label                  "Rotate"
  319.     :label-type             :string
  320.     :initial-state          :active
  321.     :menu                   nil
  322.     :notify-handler         nil
  323.     :event-handler          nil
  324.     :user-data              ()
  325.     :actions                ()
  326. )
  327. (
  328.     :type                   :text-field
  329.     :name                   text_rotation_degrees
  330.     :owner                  controls1
  331.     :help                   ""
  332.     :x                      146
  333.     :y                      149
  334.     :width                  192
  335.     :height                 15
  336.     :value-x                274
  337.     :value-y                149
  338.     :value-length           8
  339.     :stored-length          20
  340.     :rows                   3
  341.     :foreground-color       ""
  342.     :text-type              :alphanumeric
  343.     :label                  "Rotation Degrees:"
  344.     :label-type             :string
  345.     :layout-type            :horizontal
  346.     :value-underlined       t
  347.     :initial-value          "0.0"
  348.     :initial-state          :active
  349.     :read-only              nil
  350.     :notify-handler         nil
  351.     :event-handler          nil
  352.     :user-data              ()
  353.     :actions                ()
  354. )
  355. (
  356.     :type                   :button
  357.     :name                   but_close_image_reg
  358.     :owner                  controls1
  359.     :help                   ""
  360.     :x                      207
  361.     :y                      174
  362.     :width                  51
  363.     :height                 19
  364.     :constant-width         nil
  365.     :button-type            :normal
  366.     :foreground-color       ""
  367.     :label                  "Close"
  368.     :label-type             :string
  369.     :initial-state          :active
  370.     :menu                   nil
  371.     :notify-handler         nil
  372.     :event-handler          nil
  373.     :user-data              ()
  374.     :actions                (
  375.         (
  376.         :from                   (pop_image_reg but_close_image_reg)
  377.         :when                   (Notify )
  378.         :to                     (pop_image_reg)
  379.         :function_type          :user_defined
  380.         :arg_type               ()
  381.         :action                 (Hide)
  382.         )
  383.         (
  384.         :from                   (pop_image_reg but_close_image_reg)
  385.         :when                   (Notify )
  386.         :to                     (pop_ref_frame)
  387.         :function_type          :user_defined
  388.         :arg_type               ()
  389.         :action                 (Hide)
  390.         )
  391.     )
  392. )
  393. (
  394.     :type                   :popup-window
  395.     :name                   pop_ref_frame
  396.     :owner                  win
  397.     :width                  346
  398.     :height                 61
  399.     :background-color       ""
  400.     :foreground-color       ""
  401.     :label                  "Segal: Reference Frame"
  402.     :label-type             :string
  403.     :initial-state          :invisible
  404.     :show-footer            nil
  405.     :resizable              nil
  406.     :pinned                 t
  407.     :done-handler           nil
  408.     :event-handler          nil
  409.     :user-data              ()
  410.     :actions                ()
  411. )
  412. (
  413.     :type                   :canvas-pane
  414.     :name                   canvas
  415.     :owner                  pop_ref_frame
  416.     :help                   ""
  417.     :x                      0
  418.     :y                      0
  419.     :width                  1
  420.     :height                 1
  421.     :background-color       ""
  422.     :foreground-color       ""
  423.     :initial-state          :visible
  424.     :draggable              nil
  425.     :droppable              nil
  426.     :default-drop-site      nil
  427.     :menu                   nil
  428.     :horizontal-scrollbar   nil
  429.     :scrollable-width       1
  430.     :vertical-scrollbar     nil
  431.     :scrollable-height      1
  432.     :repaint-proc           nil
  433.     :event-handler          nil
  434.     :drawing-model          :xview
  435.     :user-data              ()
  436.     :actions                ()
  437. )
  438. (
  439.     :type                   :control-area
  440.     :name                   controls2
  441.     :owner                  pop_ref_frame
  442.     :help                   ""
  443.     :x                      0
  444.     :y                      2
  445.     :width                  346
  446.     :height                 59
  447.     :background-color       ""
  448.     :foreground-color       ""
  449.     :initial-state          :visible
  450.     :show-border            nil
  451.     :menu                   nil
  452.     :event-handler          nil
  453.     :user-data              ()
  454.     :actions                ()
  455. )
  456. (
  457.     :type                   :setting
  458.     :name                   set_reference_aspect
  459.     :owner                  controls2
  460.     :help                   ""
  461.     :x                      8
  462.     :y                      4
  463.     :width                  202
  464.     :height                 23
  465.     :value-x                138
  466.     :value-y                4
  467.     :rows                   1
  468.     :columns                0
  469.     :layout-type            :horizontal
  470.     :foreground-color       ""
  471.     :setting-type           :stack
  472.     :selection-required     t
  473.     :label                  "Reference Aspect:"
  474.     :label-type             :string
  475.     :notify-handler         nil
  476.     :event-handler          nil
  477.     :choices                ("X axis" "Y axis" "Z axis" )
  478.     :choice-label-types     (:string :string :string )
  479.     :choice-colors          ("" "" "" )
  480.     :choice-defaults        (nil nil nil )
  481.     :initial-selections     (nil nil nil )
  482.     :initial-state          :active
  483.     :user-data              ()
  484.     :actions                ()
  485. )
  486. (
  487.     :type                   :slider
  488.     :name                   set_reference_frame
  489.     :owner                  controls2
  490.     :help                   ""
  491.     :x                      8
  492.     :y                      33
  493.     :width                  322
  494.     :height                 20
  495.     :value-x                129
  496.     :value-y                33
  497.     :slider-width           100
  498.     :ticks                  0
  499.     :foreground-color       ""
  500.     :label                  "Reference Frame:"
  501.     :label-type             :string
  502.     :layout-type            :horizontal
  503.     :orientation            :horizontal
  504.     :show-endboxes          nil
  505.     :show-range             t
  506.     :show-value             t
  507.     :min-value              0
  508.     :max-value              100
  509.     :min-value-string       ""
  510.     :max-value-string       ""
  511.     :min-tick-string        ""
  512.     :max-tick-string        ""
  513.     :initial-value          0
  514.     :initial-state          :active
  515.     :notify-handler         nil
  516.     :event-handler          nil
  517.     :user-data              ()
  518.     :actions                ()
  519. )
  520. )
  521.